#!/usr/bin/perl

print "start to do something\n";

@plats = "dm365 hi3515 hi3518";

foreach $plat (@plats) {
    print "$plat"
}
print "\n"

